50 IFA<2THENA=A+2:LOAD"HI-EXE",8,1
60 IFA=3THEN150
70 IFA=4THEN650
100 INPUT"[147]BETRIEBSART";C:POKE780,C:POKE56,13:CLR:W$="123456":SYS3328
110 IFPEEK(8073)AND64THENA=3:LOAD"MENUE",8,1
150 SYS3337:A=PEEK(8064)
160 ONA+1GOSUB200,250,300,290,400,600,290,290,500,510,300:GOTO150
200 OPEN3,8,0,"$0":GET#3,C$,C$
210 GET#3,C$,C$,L$,H$:IFC$=""THENCLOSE3:WAIT198,1:RETURN
220 PRINT256*ASC(H$+CHR$(0))+ASC(L$+CHR$(0));:SYS3334:GOTO210
250 PRINT"[147]SEQUENZ:":PRINT"  "W$:INPUT"";W$:IFLEN(W$)<2THEN250
290 RETURN
300 POKE8115,8:PRINT"[147]G=GRAFIKBILD":IFPEEK(8073)>127THENPRINT"F=FARBBILD"
310 PRINT"S=SPRITE":PRINT"Z=ZEICHENSATZ":PRINT" -->";
320 GETC$:IFC$<>"G"ANDC$<>"F"ANDC$<>"S"ANDC$<>"Z"THEN320
330 PRINTC$:POKE780,ASC(C$):H$=W$:INPUT"FILENAME";W$:SYS3331:W$=H$:H$=""
340 OPEN1,8,15,H$:INPUT#1,A,H$:PRINTA;H$:IFA>0THENWAIT198,1
350 CLOSE1:RETURN
400 POKE631,34:POKE198,1:H$="":INPUT"[147]";H$:GOTO340
500 A=8075:GOTO520
510 A=8079
520 D=PEEK(8074):C=PEEK(A+D):PRINT"[147]F"2*D+1:PRINT"SCHRITTWEITE :"C,
530 INPUTC:IFC<1ORC>160THEN530
540 POKEA+D,C:RETURN
600 IFA=5THENA=4:LOAD"COPY 1520",8,1
650 INPUT"[147]BILDNUMMER";D:C=(DAND7)
660 INPUT"FARBE (0-3)";B$:POKE1000,0:POKE1001,VAL(B$)
670 FORI=0TO6
680 IFPEEK(8086+I)=DTHENLETZ=(I+1)*8192
690 NEXTI
700 X=INT(Z/256):POKE3399,X:POKE3392,Z-X*256
710 POKE780,C:SYS3328
720 PRINT"OVERLAY";:GOSUB800:IFC$="J"THEN630
730 PRINT"NAHTLOS";:GOSUB800:IFC$="N"THENLETA=1:GOTO50
740 OPEN1,6,1:PRINT#1,"M",0,-180:CLOSE1
750 OPEN1,6,0:PRINT#1," ":CLOSE1:GOTO650
800 PRINT" ? (J/N)";
810 GETC$:IFC$<>"J"ANDC$<>"N"THEN810
820 PRINTC$:RETURN